home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch5 / enum < prev    next >
Text File  |  1991-01-08  |  227b  |  17 lines
  1. sub enum {
  2.     local($_) = @_;
  3.     local(@specs) = split(/,/);
  4.     local($val);
  5.     for (@specs) {
  6.     if (/=/) {
  7.         $val = eval $_;
  8.     } else {
  9.         eval $_ . ' = ++$val';
  10.     }
  11.     }
  12. }
  13.  
  14. &enum(<<'EOL');
  15. _E_N_U_M_L_I_S_T
  16. EOL
  17.